home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 52 / Amiga Format AFCD52 (Issue 136, May 2000).iso / -serious- / hardware / ahd12 / ahd / messages.i < prev    next >
Text File  |  2000-02-28  |  1KB  |  60 lines
  1. INFO_LEVEL      EQU     0    ; Specify amount of debugging info desired
  2.  
  3.                 XREF    KPutFmt
  4.                 xref    puthex
  5.                 xref    putchar
  6.                 xref    putnl
  7.  
  8. PUTMSG:         MACRO   * level,msg
  9.  
  10.                 IFGE    INFO_LEVEL-\1
  11.  
  12.                 PEA     subSysName(PC)
  13.                 MOVEM.L A0/A1/D0/D1,-(SP)
  14.                 LEA     msg\@,A0
  15.                 LEA     4*4(SP),A1
  16.                 JSR     KPutFmt
  17.                 MOVEM.L (SP)+,D0/D1/A0/A1
  18.                 ADDQ.L  #4,SP
  19.                 BRA.S   end\@
  20.  
  21. msg\@           DC.B    \2
  22.                 DC.B    10
  23.                 DC.B    0
  24.                 DS.W    0
  25. end\@
  26.                 ENDC
  27.                 ENDM
  28.  
  29. DMPHEX:         MACRO   * level, ea
  30.  
  31.                 ifge    INFO_LEVEL-\1
  32.  
  33.                 move.l  d0,-(sp)
  34.                 move.l  \2,d0
  35.                 bsr     puthex
  36.                 move.l  (sp)+,d0
  37.  
  38.                 endc
  39.                 endm
  40.  
  41. DMPNL:          MACRO
  42.  
  43.                 ifge    INFO_LEVEL-\1
  44.  
  45.                 bsr     putnl
  46.  
  47.                 endc
  48.                 endm
  49.  
  50. DMPCHR:         MACRO   * level, ea
  51.  
  52.                 ifge    INFO_LEVEL-\1
  53.  
  54.                 move.l  \2,d0
  55.                 bsr     putchar
  56.  
  57.                 endc
  58.                 endm
  59.  
  60.